Data preparations
load("XSTSF_production.RData")
source('functions.R')
f0_all_ct <- f0_all_pre %>% filter(focus_condition == 'ct' ) %>%
group_by(speaker) %>%
mutate(norm_f0 = scale(log(f0))) %>%
ungroup()
f0_di_ct_vo <- f0_all_ct %>%
filter(syntax %in% c('V') & diortri == 'di')
f0_di_ct_vo_h <- f0_di_ct_vo %>% filter( grepl('^H', sync_tone1))
f0_di_ct_vo_l <- f0_di_ct_vo %>% filter( grepl('^[LR]', sync_tone1))
Initial data inspection
# yinping-initial VO
f0_di_ct_vo_hp <- f0_di_ct_vo_h %>% filter(hist_tone1 == 'yinping')
ggplotly(draw_by(f0_di_ct_vo_hp, 'speaker'), tooltip = c('text', 'x'))
# yinshang-initial VO
f0_di_ct_vo_hs <- f0_di_ct_vo_h %>% filter(hist_tone1 == 'yinshang')
ggplotly(draw_by(f0_di_ct_vo_hs, 'speaker'), tooltip = c('text', 'x'))
# yangshang-initial VO
f0_di_ct_vo_ls <- f0_di_ct_vo_l %>% filter(hist_tone1 == 'yangshang')
ggplotly(draw_by(f0_di_ct_vo_ls, 'speaker'), tooltip = c('text', 'x'))